import java.util.*;


class Solution {

    // 邻接表，存储顶点以及其出边对应的点
    Map<Character, List<Character>> edges = new HashMap<>();
    // 入度数组(便于拓扑排序，查找入度为0的点)
    Map<Character, Integer> in = new HashMap<>();
    // 避免出现 ["abc", "ab"] 这种情况
    boolean check;


    public String alienOrder(String[] words) {
        // 1、初始化入度数组 + 建图
        // 初始化是为了后续可以找到入度为0的点
        // 建图的过程中，并不会修改入度为0的顶点
        for (String s : words) {
            for (char c : s.toCharArray()) {
                in.put(c, 0);
            }
        }
        int n = words.length;
        // 枚举每一个单词进行比较，得出字典序
        for (int i = 0; i < n; i++) {
            for (int j = i + 1; j < n; j++) {
                addEdge(words, i, j);
                if (check) {
                    return "";
                }
            }
        }
        // 2、拓扑排序
        Queue<Character> queue = new LinkedList<>();
        // (1)找到入度为0的点，并加入队列
        for (String s : words) {
            for (char c : s.toCharArray()) {
                if (in.get(c) == 0 && !queue.contains(c)) {
                    queue.offer(c);
                }
            }
        }
        // (2)循环删除入度为0的点，以及出边
        StringBuilder ret = new StringBuilder();
        while (!queue.isEmpty()) {
            char c = queue.poll();
            ret.append(c);
            // 可能该点并不存在出边
            if (!edges.containsKey(c)) {
                edges.put(c, new ArrayList<>());
            }
            // 删除其出边
            for (Character ch : edges.get(c)) {
                in.put(ch, in.get(ch)-1);
                if (in.get(ch) == 0) { // 顶点入度为0
                    queue.offer(ch);
                }
            }
        }
        // 3、判断图中是否还存在顶点(存在环->入度数组值有不为0的)
        for (String s : words) {
            for (char c : s.toCharArray()) {
                if (in.get(c) != 0) {
                    return "";
                }
            }
        }
        return ret.toString();
    }


    // 添加图的信息 + 入度数组的信息
    private void addEdge(String[] words, int i, int j) {
        // 求出最小公共长度
        String s1 = words[i], s2 = words[j];
        int n = Math.min(s1.length(), s2.length());
        int k = 0;
        for (; k < n; k++) {
            char c1 = s1.charAt(k), c2 = s2.charAt(k);
            if (c1 != c2) {
                // 更新图和入度数组
                if (!edges.containsKey(c1)) { // 初始化
                    edges.put(c1, new ArrayList<>());
                }
                // 判断是否已经出现过了
                if (edges.get(c1).contains(c2)) {
                    return;
                }
                edges.get(c1).add(c2);
                in.put(c2, in.get(c2)+1);
                break; // 一定要跳出循环
            }
        }
        // 排序 ["abc", "ab"] 这种特殊情况
        if (k < s1.length() && k == s2.length()) {
            check = true;
        }
    }
}